home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / C⁄C++ / Xconq 7.0d37 / source / lib / pelops.g < prev    next >
Text File  |  1995-04-04  |  3KB  |  114 lines
  1. (game-module "pelops"
  2.   (title "Peloponnesian War")
  3.   (blurb "Athens vs Sparta, for control of Greece")
  4.   (base-module "greek")
  5.   (variants
  6.    (see-all false)
  7.    ;; not realistic, more for debugging
  8.    ("Wipeout" wipeout
  9.      (true (scorekeeper (do last-side-wins))))
  10.    )
  11. )
  12.  
  13. (set terrain-seen true)
  14.  
  15. ;; Suppress random startups (should hack synthesis list)
  16. (add u* start-with 0)
  17. (add u* independent-near-start 0)
  18. (table independent-density (u* t* 0))
  19.  
  20. (area 101 49 (restrict 200 100 30 32))
  21.  
  22. ;; One of the interesting properties of the Pelopponnesian War was that
  23. ;; it was really a three-sided contest, with Persia always waiting in
  24. ;; the wings, looking for opportunities to influence events.
  25.  
  26. (side 1 (noun "Athenian"))
  27.  
  28. (side 2 (noun "Spartan"))
  29.  
  30. (side 3 (noun "Persian"))
  31.  
  32. (include "u-greek")
  33.  
  34. ;;; Initial alignments of cities.
  35.  
  36. (unit "Abdera" (s 1))
  37. (unit "Abydos" (s 1))
  38. (unit "Aegina" (s 1))
  39. (unit "Amphipolis" (s 1))
  40. (unit "Andros" (s 1))
  41. (unit "Athens" (s 1))
  42. (unit "Brauron" (s 1))
  43. (unit "Byzantium" (s 1))
  44. (unit "Calchedon" (s 1))
  45. (unit "Catana" (s 1))
  46. (unit "Chalcis" (s 1))
  47. (unit "Chios" (s 1))
  48. (unit "Corcyra" (s 1))
  49. (unit "Cos" (s 1))
  50. (unit "Elaea" (s 1))
  51. (unit "Ephesus" (s 1))
  52. (unit "Erythrae" (s 1))
  53. (unit "Halicarnassus" (s 1))
  54. (unit "Ialysus" (s 1))
  55. (unit "Ilium" (s 1))
  56. (unit "Lemnos" (s 1))
  57. (unit "Leontini" (s 1))
  58. (unit "Lindos" (s 1))
  59. (unit "Melos" (s 1))
  60. (unit "Methone" (s 1))
  61. (unit "Methymna" (s 1))
  62. (unit "Miletus" (s 1))
  63. (unit "Myndus" (s 1))
  64. (unit "Mytilene" (s 1))
  65. (unit "Naupactus" (s 1))
  66. (unit "Naxos" (s 1))
  67. (unit "Olynthus" (s 1))
  68. (unit "Parium" (s 1))
  69. (unit "Paros" (s 1))
  70. (unit "Perinthus" (s 1))
  71. (unit "Plataeae" (s 1))
  72. (unit "Same" (s 1))
  73. (unit "Samos" (s 1))
  74. (unit "Sestos" (s 1))
  75. (unit "Thasos" (s 1))
  76. (unit "Zacynthus" (s 1))
  77. ;; (should put army near Potidaea)
  78.  
  79. (unit "Sparta" (s 2))
  80. (unit "Aegae" (s 2))
  81. (unit "Ambracia" (s 2))
  82. (unit "Anactorium" (s 2))
  83. (unit "Corinth" (s 2))
  84. (unit "Elis" (s 2))
  85. (unit "Epidaurus" (s 2))
  86. (unit "Gythium" (s 2))
  87. (unit "Kythera" (s 2))
  88. (unit "Lepreum" (s 2))
  89. (unit "Megara" (s 2))
  90. (unit "Olympia" (s 2))
  91. (unit "Pella" (s 2))
  92. (unit "Pharae" (s 2))
  93. (unit "Potidaea" (s 2))
  94. (unit "Pylos" (s 2))
  95. (unit "Sicyon" (s 2))
  96. (unit "Syracuse" (s 2))
  97. (unit "Tegea" (s 2))
  98. (unit "Thebes" (s 2))
  99. (unit "Therma" (s 2))
  100. (unit "Thyrea" (s 2))
  101. (unit "Troezen" (s 2))
  102.  
  103. (unit "Anaea" (s 3))
  104. (unit "Ancyra" (s 3))
  105. (unit "Sardis" (s 3))
  106. (unit "Magnesia" (s 3))
  107. (unit "Nysa" (s 3))
  108. (unit "Pergamum" (s 3))
  109. ;(unit "Thalles" (s 3))
  110.  
  111. ;; Get rid of cities of later times.
  112.  
  113. (unit "Megalopolis" (hp 0))
  114.